home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00050.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  1.2 KB  |  56 lines
  1. on change2
  2.   global bore, drumonly, switch, wait, change, drums, check, s
  3.   if the mouseDown then
  4.     set wait to 1
  5.     if the timeoutLapsed > (3 * 60) then
  6.       startTimer()
  7.       set bore to bore + 1
  8.       borecheck()
  9.       redraw()
  10.       do("sel" & s + 10 & EMPTY)
  11.     end if
  12.     set drumonly to 0
  13.   end if
  14.   set switch to switch + 1
  15.   if switch > 1500 then
  16.     dropdrums2()
  17.     set switch to 0
  18.   end if
  19.   set wait to wait + 1
  20.   if wait > 120 then
  21.     set check to 0
  22.     set the timeoutLength to 10 * 60
  23.     when timeOut then 
  24.     if the lastClick > (10 * 60) then
  25.       startTimer()
  26.       set change to random(4)
  27.       if change = 1 then
  28.         set the visible of sprite 3 to 1
  29.         updateStage()
  30.         if soundBusy(1) = 0 then
  31.           set drums to 0
  32.         end if
  33.       end if
  34.       if change = 2 then
  35.         dropsounds()
  36.       end if
  37.       if change = 3 then
  38.         changesounds2()
  39.       end if
  40.       if change = 4 then
  41.         changesounds3()
  42.       end if
  43.       set wait to 0
  44.     end if
  45.   end if
  46.   if wait > 50 then
  47.     set check to check + 1
  48.     if check = 1 then
  49.       set s to random(10)
  50.       redraw()
  51.       do("sel" & s + 10 & EMPTY)
  52.       set check to check + 1
  53.     end if
  54.   end if
  55. end
  56.